home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s1.arc / DISPHELP.MOD < prev    next >
Text File  |  1987-04-01  |  6KB  |  136 lines
  1. (*----------------------------------------------------------------------*)
  2. (*                Display_Help --- Display Command List                 *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Display_Help( FirstTime : BOOLEAN );
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Display_Help                                         *)
  10. (*                                                                      *)
  11. (*     Purpose:    Displays Command List                                *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Display_Help( FirstTime : BOOLEAN );                          *)
  16. (*                                                                      *)
  17. (*           FirstTime --- TRUE for first call, else FALSE              *)
  18. (*                                                                      *)
  19. (*     Calls:    KeyPressed                                             *)
  20. (*               Async_Send                                             *)
  21. (*               Restore_Screen                                         *)
  22. (*               Save_Screen                                            *)
  23. (*               Draw_Menu_Frame                                        *)
  24. (*               Read_Kbd                                               *)
  25. (*                                                                      *)
  26. (*----------------------------------------------------------------------*)
  27.  
  28. VAR
  29.    Ch: CHAR;
  30.  
  31. (*----------------------------------------------------------------------*)
  32.  
  33. PROCEDURE Write_Help( Command_Ch : CHAR;
  34.                       Help_Text  : AnyStr;
  35.                       XPos       : INTEGER;
  36.                       YPos       : INTEGER );
  37.  
  38. BEGIN (* Write_Help *)
  39.  
  40.    WriteSXY( '  Alt-' + Command_Ch + ':  ', XPos + 2, YPos + 2, Menu_Text_Color_2 );
  41.    WriteSXY( Help_Text, XPos + 12, YPos + 2, Menu_Text_Color );
  42.  
  43. END   (* Write_Help *);
  44.  
  45. (*----------------------------------------------------------------------*)
  46.  
  47. BEGIN (* Display_Help *)
  48.                                    (* Tell host to stop sending *)
  49.    IF Do_Xon_Xoff_Checks THEN
  50.       Async_Send( CHR( XOFF ) );
  51.                                    (* Save current screen image *)
  52.    Save_Screen( Saved_Screen );
  53.                                    (* Display help information  *)
  54.  
  55.    Draw_Menu_Frame( 2, 1, 78, 24, Menu_Frame_Color, Menu_Title_Color,
  56.                     Menu_Text_Color, ' Available Commands ' );
  57.  
  58.    Write_Help( 'A', 'Edit line on screen', 1 , 1 );
  59.    Write_Help( 'B', 'Send Break',          38, 1 );
  60.  
  61.    Write_Help( 'C', 'Clear Screen',        1,  2 );
  62.    Write_Help( 'D', 'Dial a number',       38, 2 );
  63.  
  64.    IF Local_Echo THEN
  65.       Write_Help( 'E', 'Toggle local echo (now ON)' , 1, 3 )
  66.    ELSE
  67.       Write_Help( 'E', 'Toggle local echo (now OFF)', 1, 3 );
  68.    Write_Help( 'F', 'File manipulation', 38, 3 );
  69.  
  70.    Write_Help( 'G', 'Execute script',    1,  4 );
  71.    Write_Help( 'H', 'Hang up the phone', 38, 4 );
  72.  
  73.    Write_Help( 'I', 'Produce this command list', 1,  5 );
  74.    Write_Help( 'J', 'Jump to DOS',               38, 5 );
  75.  
  76.    Write_Help( 'K', 'Set function keys',         1,  6 );
  77.  
  78.    IF Printer_On THEN
  79.       Write_Help( 'L', 'Log to printer (now ON)',  38, 6 )
  80.    ELSE
  81.       Write_Help( 'L', 'Log to printer (now OFF)', 38, 6 );
  82.  
  83.    IF Silent_Mode THEN
  84.       Write_Help( 'M', 'Toggle Mute Mode (now ON)',  1,  7  )
  85.    ELSE
  86.       Write_Help( 'M', 'Toggle Mute Mode (now OFF)', 1,  7  );
  87.    Write_Help( 'N', 'New comm. parameters',         38, 7  );
  88.  
  89.    IF Capture_On THEN
  90.       Write_Help( 'O', 'Capture session to disk (now ON)',  1,  8  )
  91.    ELSE
  92.       Write_Help( 'O', 'Capture session to disk (now OFF)', 1,  8  );
  93.  
  94.    Write_Help( 'P', 'Set parameters',               38, 8  );
  95.  
  96.    Write_Help( 'Q', 'Redial last number dialed',    1,  9  );
  97.    Write_Help( 'R', 'Receive file from remote',     38, 9  );
  98.  
  99.    Write_Help( 'S', 'Send file to remote',          1,  10 );
  100.    Write_Help( 'T', 'Get translate table',          38, 10 );
  101.  
  102.    Write_Help( 'U', 'Screen dump to file',          1,  11 );
  103.    Write_Help( 'V', 'View captured text',           38, 11 );
  104.  
  105.    Write_Help( 'W', 'Enter host mode',              1,  12 );
  106.    Write_Help( 'X', 'Exit PibTerm',                 38, 12 );
  107.  
  108.    Write_Help( 'Y', 'Display session information',  1,  13 );
  109.    Write_Help( 'Z', 'Get area code',                38, 13 );
  110.  
  111.    GoToXY( 3 , 16 );
  112.    TextColor( Menu_Text_Color_2 );
  113.  
  114.    WRITE('Hit ESC to continue, or Alt-letter to execute command.');
  115.    TextColor( Menu_Text_Color );
  116.  
  117.                                    (* Wait for key to be hit        *)
  118.  
  119.    Read_Kbd( Ch );                 (* Read 2 chars if 1st was ESC   *)
  120.  
  121.    IF ( ( Ch = CHR( ESC ) ) AND KeyPressed ) THEN
  122.       BEGIN
  123.          READ( Kbd, Ch );
  124.          IF ORD( Ch ) IN Alt_Let_Set THEN
  125.             Keyboard_Buffer := Keyboard_Buffer + CHR( ESC ) + Ch;
  126.       END;
  127.                                    (* Restore previous screen image *)
  128.    Restore_Screen( Saved_Screen );
  129.                                    (* Tell host to continue sending *)
  130.    IF Do_Xon_Xoff_Checks THEN
  131.       Async_Send( CHR( XON ) );
  132.                                    (* Reset global colors           *)
  133.    Reset_Global_Colors;
  134.  
  135. END   (* Display_Help *);
  136.